home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / 1st_b110.zip / 20-MAIL.SCR < prev    next >
Text File  |  1993-01-28  |  1KB  |  74 lines

  1. '
  2. '        QSO script for 1stReader
  3. '        January 13th, 1993
  4. '
  5.  
  6. CAPTURE ON
  7. TIMEOUT 30
  8.  
  9. LOOKFOR "-Press Any Key-" "^M"
  10. LOOKFOR "Read Now(Y/N)?" "N"
  11. LOOKFOR "correct?" "Y^M"
  12. LOOKFOR "(S=Stop)-" "S"
  13. LOOKFOR "-More-" "S"
  14.  
  15. LOCKLINE 20 30
  16. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  17. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  18. COMMENT "@DATE@ @TIME@  Logging in to TBBS"
  19.  
  20. WAITFOR "Name? " 50
  21. IF FOUND=0 EXIT
  22. TRANSMIT; "@USER@^M"
  23. WAITFOR "Password: " 30
  24. COMMENT "@DATE@ @TIME@  Transmitting password"
  25. TRANSMIT "@PASSWORD@^M"
  26. WAITFOR "Command: "
  27. COMMENT "@DATE@ @TIME@  Opening QSO"
  28. TRANSMIT "@QMAIL@"
  29.  
  30. :UPLD
  31. IF NOT REPLIES GOTO DNLD
  32. COMMENT "@DATE@ @TIME@  Uploading replies"
  33. WAITFOR "Command? "
  34. TRANSMIT "U"
  35. UPLOAD @REPDIR@@BBSID@.REP
  36. WAITFOR "Processing reply file"
  37. WAITFOR "file complete|uploaded archive"
  38. IF FOUND=1 GOTO UPKILL
  39. IF FOUND=2 GOTO UPERROR
  40. GOTO DNLD
  41.  
  42. :UPKILL
  43. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  44. KILL @REPDIR@@BBSID@.REP
  45. TRANSMIT "^M"
  46.  
  47. :UPERROR
  48. TRANSMIT "^M"
  49. GOTO DNLD
  50.  
  51. :DNLD
  52. WAITFOR "Command? "
  53. TRANSMIT "D"
  54. WAITFOR "messages (Y/N)?|no new mes"
  55. IF FOUND=1 GOTO DLCONT
  56. TRANSMIT "^M"
  57. GOTO GOODBYE
  58.  
  59. :DLCONT
  60. TRANSMIT "Y"
  61. COMMENT "@DATE@ @TIME@  Downloading messages"
  62. WAITFOR "@BBSID@.Q"
  63. DOWNLOAD @PACKETDIR@@BBSID@.QWK
  64.  
  65. :GOODBYE
  66. WAITFOR "Command?" 20
  67. TRANSMIT "G"
  68.  
  69. :EXIT
  70. PAUSE 5
  71. HANGUP
  72.  
  73. CAPTURE OFF
  74.